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1 MODULE baddata (ZTITLE anol age (Nedte Data Storage Declarations’ 
eecin IDENT ="v04-000') = 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
‘@ ALL RIGHTS RESERVED. 


ie ne SOFTWARE IS eyes see UNDER A LICENSE AND MAY BE ee AND coptee 
ACCORDANCE E CE THE 
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a 
® 
® 
® 
® 
® 
wr 
® 
' ® 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
it THE INFORMATION IN THIS SOFTWARE I$ SUBJECT TO CHANGE WITHOUT NOTICE 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
it CORPORATION. , 
® 
® 
® 
® 
® 
® 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! Facility: 
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! 
! 
Analyze/Media 
Abstract: 
‘ This module contains all of the global data storage declarations 
00 : used by the utility. 
003 : 
O08 : Author: 
9040 Michael T. Rhodes Creation Date: July, 1982 
004 Modified By: 
0044 : v03-002 mTROOO2 Michael T. Rhodes 20-Jan-1983 
0045 : Add shared message BADVALUE (severe) definition, for bad 
Oba keyword value diagnostic. 
0048 : v03-001 MTROO01 Michael T. Rhodes 15-Dec-1982 
sir Remove unused scalars -- bad$gl_retrycnt and bad$gl_worst_case. 
051 leo 
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“04-000 - 1a-80p-1986 11:56:99 DISKSVMSMASTERS (BAD. SRCSBADDATA.B32:1°9" (25 
| 3 3 1! 

; : 038 : Declare LIBRARY and REQUIRE files necessary to build the storage structures. 

; $ 038 } LIBRARY ‘SYSSLIBRARY:L1B'; ! System definitions. 

; 58 089 1! 

$ 4 $28 : : Define shared messages. 

; «61 P 0060 1 SSHR_MSGDEF (BAD, 250, GLOBAL 

3; «6 P0061 1 (BADVALUE , SEVERE), 

... £ P B96 1 (CLOSEOUT SEVERE) 

; 64 P 0063 1 CINSVIRMEM, SEVERES, 

3; (65 P 0064 1 (OPENOUT , SEVERE), 

; 66 P 0065 1 (READERR ,ERROR) 

; «67 0 1 (WRITEERR, ERRORS); 

; 68 0067 1 

; 0068 1 LITERAL 

; 0069 1 dvientries = 10, ! Total number of entries _in item List. 

; 4! tA : dvilistsize = dvientries * 12; ! Number of bytes for SGETDVI item List. 

ae 0072 1 GLOBAL 

; 0075 1 bad$gl_bad_term : VECTOR (4, LONG), ! Bad block information vector. 

5 0074 1 bad$gb_block_fact : BYTE, ! Block factor for medium. 

s 0075 #1 bad$gl_bytes_cyl, ! Number of bytes per cylinder. 

ey i 4 0076 1 padset -aytes.trk. ! Number of bytes per track. 

; 0077 1 bad$gl_chan, ' Device channel number. 

.. 0078 1 bad$ga_comnd_lLine : SBBLOCK Edegse_s_binJ. ! Descriptor for command Line buffer. 

; 80 0079 1 bad$gl_context : BITVECTOR (32), ! Context flags vector. 

; 8 0080 1 bad$gl_cylinders, ! Number of cylinders on medium. 

5 § 0081 1 bad$ga_bufadr : VECTOR C2, LONG], ' 10 request data buffer address vector. 

. © 0082 1 bad$gl_devchar : $BBLOCK (4), ! Device characteristics. 

;  =84 0085 1 bad$gl_devclass, ! Device class identifier. 

; & 0084 1 bad$ga_device : SBBLOCK Cdsc$c_s_bin], ! Descriptor for device name. 

3 0085 1 bad$ga_devnam : SBBLOCK (64), ! Buffer to hold the device name. 

;- oy 0086 1 bad$gl_devnam, ' Size of the device name (returned by SGETD 

; #8 0087 1 bad$gq_devnam : SBBLOCK Cdsc$c_s_binJ, ' Descriptor fo device name. 

; 0088 1 bad$gl_devtype, ! Device type identifier. 

; 0089 1 bad$ga_filespec : SBBLOCK Cdsc$c_s_bin], ' Descriptor for output file spec. 

0090 1 bad$gl_ func, ! 10 function to perform. 

i 0091 1 bad$ga_input_desc : SBBLOCK Cdsc$c_s_bin], ' Generic input descriptor. 

3; 93 0092 1 bad$gq_ios : VECTOR (4, LONG]; ' 10SBs for requests. . 

; 94 0095 1 bad$gl_maxblock, ! Maximum user addressable LBN on device. 

5 0094 1 bad$ga_mdbs ! Address of MDBSF buffer. 

3 38 0095 1 bad$gl“mdbsf_ptr, ' Pointer to current entry in MDBSF. 

; 0096 1 bad$gl_pagcnt, ! Number of pages in data buffers 1 & 2. 

; 0097 1 bad$ga_sd ! Addrees of SOBSF buffer. 

; 99 1 bad$gl_sdbsf_ptr, ! Pointer to current entry in SOBSF. 

; 100 1 bad$gl_sectors, ! Number of sectors per track. 

: 101 1 bad$gl_sector_siz, ' Size in bytes of a single sector. 

5 44 ] ad$gl_serialnum, ' Pack serial number. 

; W 1 bad$gl_status, ! Global status. : ; 

3; 104 1 bad$gb_term_count : BYTE, ' Number of terms used to describe bad biock 

s; 1 1 bad$ga_tpb. ! Address of Test Pattern Buffer. 

3 108 1 bad$gl_tracks, ' Number of tracks per cylinder. 

3 H+ 44 : bad$gl_trnsfr_icnt, ! Number of bytes to transfer per 10 request 

: 109 1 !¢¢ 
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/¥04=000 1e-3eer 38S 99:86:55 PeeeatAlSteee Bs shtSenppara.e3e:0°* «23 
5 119 198 ] } Initialize the SGETDVI item List. 

: 11g 11] 1! NOTE: If additional entries are added to this List the literal "badSk_dvientries” declared 

2% \ig 7 above MUST be incremented to reflect the new entr Otherwise, the storage allocation 

; 116 bi se for "bad$ga_getdvi' will be inadequate to serve the request. 

We BY 

; a O16 ; bad$ga_getdvi: 4 9 aa ! Starting address of the SGETDVI item List. 
: 119 6118 1 WORD (4, dvi$_cylinders), LONG (bad$gl_ cylinders 0), 

: 120 0119 1 WORD (4; dvi$_devchar) LONG (bad$gl_ devchar, 6) 

: 181 9120 1 WORD (4, dvi$-devclass), LONG (bad$gl-devclass, Os, 

es ; 121. 1 WORD (4, dvi$_devtype), LONG (bad$gl-devtype, 0) 

¢ 01 ; 1 WORD (64,dvi$—devnam) LONG (bad$ga_devnam, badégl_ devnam), 

> 126 0123 1 WORD (4, dvi$_maxblock), LONG (bad$gl-maxblock, 0), 

s 125 0124 1 WORD (4, dvi$_sectors), LONG (bad$gl_ posters. 0) 

> 126 0125 1 WORD (4. dvi$-serialnum), LONG (bad$gl - serialnum, 6), 

> 127 01 5 1 WORD (4, dvi$-tracks), LONG (bad$ gt “tracks, 05, 

; 128 0127 1 WORD (0, 0), LONG (0, 0 Terminator entry 

: it 9.4 0128 #1 : MUST be included’ in the 

3 it o1¢2 : i “bad$k _dvientries’’ count. 

; 138 0131 1 END 

s 13 0132 0 ELUDOM 


-TITLE BADDATA Analyze/Media Data Storage Declarations 
-IDENT \V04-000\ 


-PSECT $GLOBAL$,NOEXE,2 
00000 BADS$GL_BAD TERA: 
00010 BAD$GB_BLOCK_FACT: 

-BLKB 


We 
> 


$0014 BADS$GL shih. 
00018 BADSGL “pitts TRK: 
0001C BADSGL “cin: 
00020 BADSGA -COMND LINE 
00028 BADSGL ~CONTEXT:: 
0002C BADSGL =CVLINDERS 
00030 BADSGA_BUF ADR: : 
00038 BADSGL ae 1 tee 
0003C BADSGL -DEVCLASS: 
00040 BADSGA_DEVICE:: 
00048 BADSGA_DEVNAM: : 
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00088 BADSGL_DEVNAR: 
0008¢ BADSGQ_DEVNAM: 
00094 BADSGL_. =DEVTYPE: 
00098 BADSGA_FILESPEC:: 
0000 BADSGL_FURESD 
000A4 BADSGA_INPUT DES 
OOOAC BADSGO_ 1osb" 
000BC BADSGL iin: 
000CO BADSGA_MDBSF : 
000C4 BADSGL HORSE PTR: 
000C8 BADSGL_ PAGCNT 
OO0CC BADSGA_ sbBSt : 
000D0 BADSGL_ “abet, PTR: 
00004 BADSGL_ “spins: : 
00008 BADSGL si TOR USIZ:: 
000DC BADSGL -sERIALWUM: : 
000E0 BADSGL_ siaTUS: : 

000E4 BAD$GB “ream Count 


Q00E5 -BLKB 3 
000E8 BADSGA_TPB: : 


iV 
| 
| .BLKB 64 


4 
8 
4 
8 
4 
C: 


SORE RRR RS 
oa 


> 


.BLKB 4 
OOOEC BADSGL_ TRACKS : : 
000FO BADSGL ATiNSTR 9 
0028 0004 000F4 BADSGA_GETDVI: 
~ WORD 4, 40 3 
00000000° o00F8 “ADDRESS BADSGL_CYLINDERS ; 
00000000 O00FC “LONG 0 : 
0092 0004 00100 “WORD 4 : 
00000000" 00104 ADDRESS GABSGL_DEVCHAR : 
00000000 0108 “LONG 0 : 
0094 9004 10¢ “WORD 4, 4 : 
0000000" 00116 [ADDRESS BADSGL_DEVCLASS : 
00000000 00114 -LON NG 0 : 
0006 0904 0118 ORD 4, 6 ; 
0000000" 0011¢ “ADDRESS BADSGL_DEVTYPE ; 
00000000 00120 “LONG 0 
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PSECT SUMMARY 


| 0020, 0040, 00124 WORD 64, 32 : 
| 00000000) 99900 990" § “ADDRESS  BADSCA_ DEVNAM, BADSGL_DEVNAM ; 
"90900000" 01 - ADDRESS BADSGL_MAXBLOCK : 
000 09 01 0 ; 
0024 0004 001 ¢ WORD 4 : 
0000000" 0014 ADDRESS babScu.. SECTORS : 
0000000 00144 «LONG 0 : 
003E 0004 148 WORD 4 : 
00000000" 146 ADDRESS baSSeu _SERIALNUM ; 
0000000 0015 0 : 
0026 9004 0134 4 : 
0000000" 00158 “ADDRESS badScu.. TRACKS : 
00000000 0015¢ “LONG 0 : 
0000 0000 00160 -WORD 0, 0 : 
00000000 00000000 00164 «LONG 0, 0 : 
BAD$_BADVALUE== 16388372 
BAD$_CLOSEOUT== 16388188 
BAD$— INSVIRMEM== 16388852 
BAD$_OPENOUT== 16388260 
BAD$_READERR== 16388274 
BAD$_WRITEERR== 16388306 
: Name Bytes Attributes 
; SGLOBALS: 364 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
>.) «ABS 0 NOVEC,NOWRT,NORD ,NOEXE.NOSHR, LCL. S, CON,NOPIC,ALIGN(O) 
; Library Statistics 
Bfate tee tt oA Se ie eS a Symbols -------- Pages Processing 
s File Total Loaded Percent Mapped Time 
; _$255$DUA28:CSYSLIBILIB.L32;1 18619 22 0 1000 00:01.4 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:BADDATA/OBJ=OBJ$:BADDATA MSRC$:BADDATA/UPDATE=(ENH$:BADDATA) 
; Size: 0 code + 364 data bytes 
Run Time: 8608 3 4 


; Lines/CPU Min: 9595" " 


; Elapsed Time: 00:1 


Analyze/Media Data Storage Declarations 


; Lexemes/CPU-Min: 19652 
tion Complete 


1 
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